:-use_module(model_routines).

th_d:-
	mwritef("stard of th_d\n",_),
	thread_send_message(msgq,drilled(wastes)),
	mwritef("drilled\n",_).
th_g:-
	mwritef("stard of th_g\n",_),
	thread_get_message(msgq,drilled(wastes)),
	thread_send_message(msgq,loaded(wastes)),
	mwritef("loaded\n",_).

th_v:-
	mwritef("stard of th_v\n",_),
	thread_get_message(msgq,loaded(wastes)),
	mwritef("driven\n",_).

